From a7be48b06d205d5f574d010c6f9b5e7c7257bfc0 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 24 Sep 2002 04:12:55 +0000 Subject: [PATCH] (quail-completion): Be sure to scroll quail-completion-buf. --- lisp/international/quail.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index d0017e8bf21..f56200b555a 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2124,7 +2124,10 @@ are shown (at most to the depth specified `quail-completion-max-depth')." ;; shown. We just scroll it appropriately. (if (pos-visible-in-window-p (point-max) win) (set-window-start win (point-min)) - (let ((other-window-scroll-buffer quail-completion-buf)) + (let ((other-window-scroll-buffer quail-completion-buf) + ;; This nil binding is necessary to surely scroll + ;; quail-completion-buf. + (minibuffer-scroll-window nil)) (scroll-other-window))) (setq quail-current-key key) (erase-buffer) -- 2.30.2